home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8404.arc / SEARCH1.BAS < prev    next >
BASIC Source File  |  1986-09-14  |  640b  |  25 lines
  1. ' 
  2. '$$$$$$$$$$$$$$ 
  3. 'Subroutine 
  4. '$$$$$$$$$$$$$$ 
  5. ' 
  6. '    This is the sequential search subroutine. 
  7. '    Input is the table in which to look up (ITABLE), the 
  8. '    number of entries in the table (NTABLE), and the 
  9. '    number whose index is to be found (JKEY).  Output 
  10. '    is the index (INDX) such that  
  11. '    TABLE(INDX) = JKEY 
  12. ' 
  13. '    SEQUENTIAL SEARCH 
  14. ' 
  15. 8000 rem Start. 
  16. REM CMP   cmp = 0 
  17. ' 
  18.      for i. = 1 to ntable 
  19. REM CMP cmp = cmp + 1. 
  20.      if (itable(i.) = jkey) then indx = i.: return 
  21.      next i. 
  22. ' 
  23.      return 
  24. ' 
  25.